LARKEN Disc <=> Tape To Disc Backup System 


By 
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The following Spectrum mode program allows a backup to be made of a LARK 
disc onto tape and the reconstruction of a disc from a tape backup. The 
program may be used for the archiving valuable discs, for storing information 
from a disc when disc space is at a premium, to transfer disc information onto a 
medium more capable of withstanding the hazards of the postal system, and/or to 
solve certain drive problems. 





Notes:> 


1. The rate of transfer from disc to tape is approximately 45 seconds per 
track. 


2. Use good quality tape for recording backups. Avoid using cassettes 
longer than a C-90 when possible. 


3. The program backs up all tacks containing information including all 
"free" tracks which contain data from erased programs. 








4. The disc backup program will not backup an NMI "Autostart" program. To 
preserve such programs save a duplicate to the disc using the normal 
save routine. All other types of NMI saves are supported. 


5. The target disc used for reconstruction must be formatted in the same 
manner as the original disc. The program will signal the proper 
configuration if a mismatch is detected. 





Program listing begins overleaf 


LARKEN DISC <=> TAPE BACKUP 
BY 
GEORGE CHAMBERS 























1208 REH Tape Back-up utilitu 


116 REM By G. Chambers 14 
Richome Court Sca 

rboraugh, Ont. CANADA HIK 2Y1 

120 REH For use with the LKC COS 5345 tem aor 
5120 butes;track. 

136 REHM Use in Spectrum mode 


140 BORDER 1: PAPER 1: CLS 
12580 PRINT HT 2,4; INK 2; PAPER 6; "LARREEN DISK 


UTILITY v1.1"; PAPER 1;,,THB 5; P 
AFER 6," Disk to Tape Back-up "; PAPER 1,,TAB F; 
PAPER 6, "By George Chambers" 
166 INK 5: PLOT 5,165: DRAW 0,62: DRAN 239,0: 
CRAL @,-62: DRAN -239,0 
178 INK &: PLOT 16,114: CRAU 6,50: DRAN 222,0: 
DERHL @,-S@: DRAN -222,0: INK 7 
1588 RANDOMIZE USR 166: OPEN #4, "dd" 
128 FRINT AT 12,3, "Wait.., ,lLoading code" 
z000 PRINT H4: GÖ TO ©: LET dr =ð 
210 REM HIMIDOS Control Code 
220 RESTORE 248 
To FOR n=44000 TO 44112: READ a: PORE n.a 
ri 
2d DATA 125,242,171,122,7,172,192,27,172,15 
250 DATA 25,172,12925,75,172,2d45,2805,5,m,201 
260 DATA 356,1680,06,251,201,205,239,171,55, led 
2780 DATA 17°1,580,259,32,205,126,0,24,25 7,205 
250 DATA 239,171.55, 124, 171,50,29., 32,203,129 
250 DATA a,52525,229,52,5mgm,124,171,24,217,22 
sēd DATA 239, 171.1735, 50., 32, s=, 205. 123,0, ss 
310 DATA 32,32., 79,6, 0, 33,112,532, 17,50 
320 DATA 1935,1. 0.,20,237, 176,24, 155,203,239 
230 DATA 171.33. 50,195, 17,112,32.,1. 0,20 
S40 DATA 237, 176,2035, 120,60,24., 169., 203,239,171 
250 DATA 42, 144., 171,785,35, 70,24, 155.0, 0 
360 LET oozü: LET oās=l: LET ob=2: LET acz3 
dod LET zettrackzdaaood: LET nex ttrack=d4d 005 
416 LET lLoad=44006: LET Savesdd Oo: LET 
track =43900 
430 LET burrer-zeagdaa: LET butftrlenth=slžo 
44a DIM d$ i528): DIM g (9) 
470 PRINT HT l8,5;"1. Sāve Disk to Tape"; AT 
12,35; "2. Load From Tape to Disk';HT 
14,35, 35. Change Drive #H - Now "; FLASH lidr; 
FLASH m; RT 16,3; "4. Instructions", 
HT 15,5; 5. Return to RHHdisk menu"; AT 
26,9, "Press a key" 
450 IF INEEY$="1" THEM PAUSE gm: GO TO 100 
450 IF INEEY$=" 3" THEM GO SUB adig 
sēd IF INEEY$="2" THEM GO TO 2000 
218 IF IWREY$§="4" THEM GO SUB soda: RUA 
220 IF INEEY$=" 5" THEM PRINT #4: GO TO +: 
PRINT #4: NEW 
22580 GO TO 478 


7950 PRINT #4: GO TO 4: PRINT Hd: WEL 


lao REM Saving Disk to Tape 
16108 IF INKEYW$<3"" THEN GO TO 1616 
1220 IF PEER 23736+4168 THEN PRINT AT 12,6, d: 
LET a=4: LET b=1: FOR i=18 TO 15 

PRINT HT i,1; INK a; PAPER b; FLASH 1," vou 
HUST USE SPECTRUM MODE ": LET c=a: 
LET azb: LET bzc: HExT i 
l2: IF PEER 23736+4168 THEN PRINT ` THE 
4; "Press any Key ror menu": PAUSE gU: F 
RINT #4: GO TO 4: PRINT H4: WEL 
1l@4@ PAUSE Za: LET number =e@ 
1656 PRINT HT 19.Bjd$j AT 12,0; "Install disk in 
drive "idr'' "Place Fresh tape in 
recorder"*'"sStart recorder...and press a key": 
PAUSE mü 
1668 BEEP .5,2ü PAUSE 38: PORE 23736,1581: Go 
SUB F500 


lūrāa IF numberzia THEN LET zidezPEEH 50020: LET 
tracks =PEEK 50021: LET onside-cHEB 

S iíi2zide-3): LET tpdz=PEEK tracksxside 

1668 PRINT HT 120,0;d5 

169598 LET g=1: FOR nzburrer-«z TO burrer+1@: LET 
FSAA TORRE FEEK n: LET g=9+1: HEX 


1100 IF numbēr=ģa THEN LET ag*$='LDirectoru" 
16 IF CODE a$-a OR numbēr?=tpd THEN GO TO 


au 
20 PRINT HT 1858,1;d$! TO 36),AT 16,1, "Saving 
" adi. m track "s r 


3 number 
11380 25HUE a$ScoODE buffer, bBUFFLEN th 
1id@® LET number =numbert+onside 
11580 PAUSE 200: GO TO 1060 
2000 REM Loading tape to Disk 
2H16 PRINT HT 12,290: LET number=68: GO SUB 75 
LET Side@=PEER 50020: LET tracks=P 
EER S@@21: IF tracks=8 THEN PRINT “Wrong 
Format, check disk, and Press any ke 
Y to re-start": PAUSE ©: RUN 
2020 PRINT HT 18,7];d$: PRINT AT 16,1; "Start tape 
& Leave running..." 
2050 PRINT HT 11,12;"Saving to Drivet "idr 
cēūdļa PRINT *" On thi disk... Sides "j Side 

Tracks per side ";tracks 

2050 PAUSE sü 
2060 LET number =e 
2o? PRINT HT 129,]0;d$í( TO EA l AT 15,1; "Loading 
next track: "; 
2050 LOAP "'"CODE S0000 
2050 IF number-züa THEN GO SUB 3126 
clēāģg IF number-züa THEN LET Sid&=PEER 50020: LET 
oOnšidē=zHB5S (Side-3): LET tracks= 
PEEK S@@21: LET tpd=PEER tracksxside 
2110 IF FEEK S@@@@=208 THEN PRINT AT lē5,lūjdķi 
TO 356); AT 15,5; FLASH 1; "Loading 
to disk Completed"; FLASH @° 'THB 9; "Press a 
key": FOR n=l TO 3: BEEP .5,16: BEEP 

3,20: NEXT n: PAUSE m: GO TO oo 
2120 LET azi: FOR n=buffer+2 TO burrer-18: LET 
aoe PEER n: LET g=9+1: HEX 

n 
213598 IF number-züa THEN LET 3#="Directory" 
214g GO SUB Tvēgu 
2145 IF number-züa THEN GO SUB 3126 
2150 PRINT HT 156,0;d$í( TO 160); AT 16,1, "Saved 
eee GF ORS on track '",;number 


21650 LET numbēr=numkēr+ūnšidē 

2178 GO TO 2070 

3000 INK ð: PAPER 7: BORDER 7: CLS 

Sūla PRINT TAB 32;"Instructions':*^* 

3020 PRINT 7" This Program has been designedta 
COPY a complete disk to tape,and 


then to Load the tape back onto another disk.' 
3030 PRINT 7" It works in the Spectrum 
mode.This is because the LünHDb.3HUE rau 

tines are more accessible in the Spectrum ROW." 
cud PRINT 7" The Program saves to tape on a 
track bu track basis." 
suos PRINT 7" The Program contains a block oF 
code (data Statements). This iš 
a mini OOS used to control the disk Sys tem." 
Sūēa PRINT * 7" Press a key to continue": 
PAUSE mü 
Sūra CLS : PRINT "'' Hlthough the Program is 
trans-parent as to the type aor driv 
E that i= used, care must be takēntāa ensure 
that the samē drive tupe iš used 

For the Subsequent Load a= was used ror the 
imitialsave.,' 
3050 PRINT 7" This is because the directory 
Which defines drive type has nat be 
en modiried to reflect a different drive type." 
3030 PRINT '"'" Thererore, although the disk 
Format is ror the one drive type th 
g System interface, in Lookingat the directory, 
šēēš it as another type. CREO 
errors Will resuclt." 
3100 PRINT '"'" Press a key to return to menu" 
3116 PAUSE m: CLS RETLURIEIM 
3120 IF PEER Süuüd2üuüi»zide OR PEER Sūēdož2l:i:tracks 
THEM PRINT HT 16,6;,d%;AT 10,2; F 
LASH 1, "Risk format not compatible"; FLASH 
07 "Tape save 15:"°" “| PEER 50021; ' 

tracks per side on "“;PEER 50020; " Side"; ("s" AND 
PEER S@@2@=2) "Disk rormatted 

tor"? " "| tracks; " tracks per Side on 
"side; "Side"; ("s" AWD s=ide==) "7" Press a 
nu KEY For re-start": PAUSE ©: GO TO 3122 
3121 RETURN 
3122 IF INKEY$="y" OR INEEY$='"Y" THEN PORE 
xi Sese p s; PORE 50021., tracks RETUR 
31530 RUA 
dūda LET x=1: LET g$="NoMoa E FOR m=burfer+ē TO 
burrer-7: PORE n,CODE Of (xk): LE 
T xzx-l1: NEXT n 
460460 PORE SOOGA, 200: SAVE 'Hohoūrē CODE 
burrer,tl1ü838: PRINT RT 12,0;d$,;,HT 125,5; FLAS 
H 1; "Disk savēd to tapē”! FLASH ©; THE 93; "Press 
a key": FOR m=1 TO 5: BEEP .5,18 

: BEEP .5,2ü0: HEXT n: PAUSE ©: GO TO sudo 
bopa PRINT #4: GO TO ü 
čūla FOR nzumHL "18" TO VAL "21": PRINT HT n, NOT 
PI; C#: NEXT n 
BOSE PRINT HT HL "15",U'mHL "6B", “Disk capu 
completed'"'"""Preszs FP Key ror RAMNdisk 
Menu, or another key to copy next disk" 
6030 PAUSE HOT FI 


būda IF IHMEKEYS$z:-"P'" AND INKEYK<> "Pp" THEN RUH 
Bass PRINT H4: GO TO 4: PRINT #4: WEL 
7500 REM Load a Track 


Yole PORE t mber: RANDOMIZE USR settrack: 
RANDOHIZE Ll 
7520 RETURN 
Tēla REM sa 
7r&lð POKE t 
FĀRNDOMIZE wu 
7620 RETURN 
7630 STOF 
agi INK ð: PAPER 7: BORDER 7: CLS : STOF 
501l INPUT "Drive © to 57 "jdr 

5020 PRINT Hd: GO TO dr 

50530 RETURN 

S999 TOP 


rack 
Umber: RANDOMIZE USA settrack: 
= 


5000 CLEAR : LET odz4: PRINT RT 15,5, "SAVE 
ROLITIHME'^"" Press "'""D'"" keyg to save t 

O disk, 7" or '"'"'"T"" Key to save to tape": 
PAUSE ü 


Sala IF INKEY$="t" OR INKEYS="T" THEN LET ūd=5 
5020 PRINT Hod: SAVE "tapsav.Bb5' LINE 100: RUA 


